home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok82 / plot / source / mystrings.def < prev    next >
Text File  |  1993-11-04  |  559b  |  21 lines
  1. DEFINITION MODULE MyStrings;
  2. (*
  3.   Created:   1987 by
  4.              Stefan Salewski
  5.              Stolper Weg 3
  6.              2160 Stade   West-Germany
  7.              Tel: 04141/61130
  8.              
  9.   Note: compiled with AMIGA Modula-2 System by AMSoft from 5.5.88
  10.    
  11.   This Module may be freely copied. But please
  12.   leave my name in. Thanks....Stefan  
  13. *)
  14.  
  15.   TYPE
  16.     String=ARRAY[0..80] OF CHAR;
  17.     LongString=ARRAY[0..255] OF CHAR;
  18.   PROCEDURE Assign(VAR Dest:ARRAY OF CHAR;Source:ARRAY OF CHAR);
  19.   PROCEDURE Length(s:ARRAY OF CHAR):CARDINAL;
  20. END MyStrings.def
  21.